home *** CD-ROM | disk | FTP | other *** search
/ Aminet 15 / Aminet 15 - Nov 1996.iso / Aminet / gfx / 3d / raystexam.lha / Install_Examples < prev    next >
Text File  |  1996-09-15  |  3KB  |  89 lines
  1. ;**************************************************************************
  2. ; Install_Examples - RayStorm examples installation script for Installer
  3. ;
  4. ; Copyright © 1995 Andreas Heumann
  5. ;
  6. ; $Id: Install_RayStorm,v 1.3 1996/03/09
  7. ;
  8. ;     Installer and Installer project icon
  9. ;     (c) Copyright 1991-93 Commodore-Amiga, Inc.  All Rights Reserved.
  10. ;     Reproduced and distributed under license from Commodore.
  11. ;
  12. ;     INSTALLER SOFTWARE IS PROVIDED "AS-IS" AND SUBJECT TO CHANGE;
  13. ;     NO WARRANTIES ARE MADE.  ALL USE IS AT YOUR OWN RISK.  NO LIABILITY
  14. ;     OR RESPONSIBILITY IS ASSUMED.
  15. ;
  16. ;**************************************************************************
  17. (welcome "Welcome to the " @app-name " installation.\n")
  18.  
  19. ; The source directory name
  20. (set #source-dir
  21.  (if (= 1 (exists @icon))
  22.   (pathonly (expandpath @icon))
  23.   (expandpath @icon)
  24.  )
  25. )
  26.  
  27. ;**************************************************************************
  28. ; Select destination directory for the installation. We suggest the user
  29. ; to install to the place from where the installer was started. This is
  30. ; since normally this software will be unarchived to its proper location
  31. ; and the files don't have to be copied any more.
  32. ;**************************************************************************
  33. (procedure P_select-destination-directory
  34.  (transcript "Selecting destination directory for the installation.")
  35.  (while
  36.   (
  37.     (set @default-dest
  38.      (askdir
  39.       (prompt "Select directory where RayStorm is installed.\n")
  40.       (help "Here you can specify the location where to install "
  41.               "the RayStorm examples.\n"
  42.               "Installation can be made on-place. "
  43.               "This is recommended if you have already unarchived "
  44.               "the RayStorm archive to its final location. "
  45.               "In this case most of the files are left where they are. "
  46.               "Only necessary files are copied to different "
  47.               "positions.\n"
  48.       )
  49.       (newpath)
  50.       (default #source-dir)
  51.      )
  52.     )
  53.     (if (= 2 (exists @default-dest))
  54.      0
  55.      (makedir @default-dest
  56.       (infos)
  57.      )
  58.     )
  59.   )
  60.  )
  61. )
  62.  
  63. ;**************************************************************************
  64. ; Installatation sequence
  65. ;**************************************************************************
  66. (message "Please remember during this installation:\n\n"
  67.      "    Read the instructions provided behind the \"Help\" "
  68.      "buttons, if you are not absolutely sure what you are doing.\n"
  69. )
  70.  
  71. (complete 00)
  72. (transcript "On making " @app-name ".")
  73. (P_select-destination-directory)
  74. (complete 10)
  75. (working "Uncompressing example files")
  76. (run (cat "lha x " (tackon #source-dir "exa.lha ") @default-dest "/ #?"))
  77. (delete "exa.lha")
  78. (complete 90)
  79. (delete "Install_Examples")
  80. (delete "Install_Examples.info")
  81. (delete "Readme_Examples")
  82. (delete "Readme_Examples.info")
  83. (complete 100)
  84.  
  85. ;;; All done!
  86.  
  87. ; EOF
  88.  
  89.